home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 8 / cdrt08.iso / mac / Shareware / Applications / LabHelper 4.01 Folder / LabHelper 4.01 / LabHelper 4.01.rsrc / LENS_138_ObjectMaster < prev    next >
Encoding:
Text File  |  1994-12-12  |  6.9 KB  |  117 lines
  1. ItemType: WIND
  2. Rect: 250,139,390,163
  3. Style: Windoid
  4. HasTitleBar: FALSE
  5. HasZoomBox: FALSE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 140,24
  9. MaxSize: 305,137
  10. Name: ObjectMaster
  11. TextFont: Geneva
  12. TextSize: 9
  13. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬┬if objValue="Open" then┬  put empty into theFonts┬  repeat with x=1 to the number of menuitems in menu "font"┬    get menuitem x of menu "font"┬    put it & return after theFonts┬  end repeat┬  wsSet wdID,"10","Text", theFonts┬  wsSet wdID,"10","Selection", "1"┬  wsSet wdID,"11","Selection", "3"┬  wsSet wdID,"12","Selection", "1"┬  ┬else if objValue="Close" then ┬  ┬else if objValue="Suspend" then ┬  ┬else if objValue="Resume" then ┬  ┬else if objValue="CloseBox" then ┬  ┬else if objValue="ZoomBox" then ┬  ┬else if objValue="GrowBox" then ┬  ┬else if objValue="TitleBar" then ┬  ┬end if┬┬--end windowEvent
  14.  
  15. ItemType: CNTL
  16. Rect: 4,6,72,19
  17. TextFont: Chicago
  18. TextSize: 10
  19. Name: Buttons
  20. Style: 480
  21. Min: 0
  22. Max: 100
  23. Value: 0
  24. Step: 1
  25. Leap: 10
  26. Script: if objValue is true then┬  wsSet wdID,objNo,"HILITE",false┬  wsSend wdID,"ZOOMIN"┬else┬  set cursor to watch┬  wsSet wdID,objNo,"HILITE",true┬  wsSet wdID,2,"HILITE",false┬  put empty into btnText┬  repeat with x = 1 to number of cd btns┬    if the visible of cd btn x then┬      get name of cd btn x┬      put "cd btn" into word 1 to 2 of it┬      put it & numtochar(194) after btnText┬    end if┬  end repeat┬  repeat with x = 1 to number of bg btns┬    if the visible of bg btn x then┬      get name of bg btn x┬      put "bg btn" into word 1 to 2 of it┬      put it & numtochar(194) after btnText┬    end if┬  end repeat┬  ┬  put "btnList_TEXT:"&btnText&return into toSet┬  put "xObjType: BTN"&return after toSet┬  put "i0_ZOOMOUT"&return after toSet┬  ┬  put "Name_TEXT:"&return after toSet┬  put "TOP_TEXT:"&return&"LEFT_TEXT:"&return after toSet┬  put "HEIGHT_TEXT:"&return&"WIDTH_TEXT:"&return after toSet┬  ┬  set Properties of window wdName to toSet┬  ┬end if
  27.  
  28. ItemType: CNTL
  29. Rect: 76,6,136,19
  30. TextFont: Chicago
  31. TextSize: 10
  32. Name: Fields
  33. Style: 480
  34. Min: 0
  35. Max: 100
  36. Value: 0
  37. Step: 1
  38. Leap: 10
  39. Script: if objValue is true then┬  wsSet wdID,objNo,"HILITE",false┬  wsSend wdID,"ZOOMIN"┬else┬  set cursor to watch┬  wsSet wdID,objNo,"HILITE",true┬  wsSet wdID,1,"HILITE",false┬  put empty into fldText┬  repeat with x = 1 to number of cd flds┬    if the visible of cd fld x then┬      get name of cd fld x┬      put "cd fld" into word 1 to 2 of it┬      put it & numtochar(194) after fldText┬    end if┬  end repeat┬  repeat with x = 1 to number of bg flds┬    if the visible of bg fld x then┬      get name of bg fld x┬      put "bg fld" into word 1 to 2 of it┬      put it & numtochar(194) after fldText┬    end if┬  end repeat┬  ┬  put "btnList_TEXT: "&fldText&return into toSet┬  put "xObjType: FLD"&return after toSet┬  put "i0_ZOOMOUT" after toSet┬  ┬  set properties of window wdName to toSet┬end if┬
  40.  
  41. ItemType: LIST
  42. Rect: 4,24,136,134
  43. Name: BtnList
  44. Text: 
  45. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬set cursor to watch┬put empty into toSet┬if number of items in objValue = 1 then┬  put BtnList_SelectionText of window wdName into o┬  do "Get short name of o"┬  if word 2 to 3 of it ="button id" then get empty┬  put "Name_TEXT:"&&it&return after toSet┬  do "Get the textFont of o"┬  put "Font List_SelectionText:"&&it&return after toSet┬  do "Get the textSize of o"┬  put "Size List_SelectionText:"&&it&return after toSet┬  do "Get the textStyle of o"┬  put "Style List_SelectionText:"&&it&return after toSet ┬  do "Get rect of o"┬  put "TOP_TEXT:"&&item 2 of it&return after toSet┬  put "LEFT_TEXT:"&&item 1 of it&return after toSet┬  put "HEIGHT_TEXT:"&&(item 4 of it)-(item 2 of it)&return after toSet┬  put "WIDTH_TEXT:"&&(item 3 of it)-(item 1 of it)&return after toSet┬else┬  put "Name_TEXT:"&return after toSet  ┬  put "Font List_Selection: 0"&return after toSet┬  put "Size List_Selection: 0"&return after toSet┬  put "Style List_Selection: 0"&return after toSet┬  put "TOP_TEXT:"&return&"LEFT_TEXT:"&return after toSet┬  put "HEIGHT_TEXT:"&return&"WIDTH_TEXT:"&return after toSet┬end if┬set Properties of window wdName to toSet┬┬--end mouseUp
  46.  
  47. ItemType: TEXT
  48. Rect: 146,6,295,18
  49. Name: Name
  50. StyleRun: 0,1;Geneva;9;Plain;0,0,0
  51. Selection: 0,32767
  52. Script: put BtnList_SelectionText of window wdName into ol┬put empty into newNames┬repeat with x = 1 to number of lines in ol┬  put line x of ol into o┬  do "set name of o to objValue"┬  put (word 1 to 2 of ol) && quote&objValue"e&return after newNames┬end repeat┬set btnList_TextOfSelection of window wdName to newNames┬
  53.  
  54. ItemType: LBL
  55. Rect: 145,106,296,118
  56. Text: ╩Top╩╩╩╩Left╩╩╩Height╩╩Width
  57.  
  58. ItemType: TEXT
  59. Rect: 142,117,180,133
  60. Name: Top
  61. LockText: FALSE
  62. TextAlign: Center
  63. KeyFilter: OnlyDigits
  64. Script: if objValue is not empty then┬  put BtnList_SelectionText of window wdName into ol┬  repeat with x = 1 to number of lines in ol┬    put line x of ol into o┬    do "set top of o to objValue"┬  end repeat┬end if
  65.  
  66. ItemType: TEXT
  67. Rect: 181,117,219,133
  68. Name: Left
  69. LockText: FALSE
  70. TextAlign: Center
  71. KeyFilter: OnlyDigits
  72. Script: if objValue is not empty then┬  put BtnList_SelectionText of window wdName into ol┬  repeat with x = 1 to number of lines in ol┬    put line x of ol into o┬    do "set LEFT of o to objValue"┬  end repeat┬end if
  73.  
  74. ItemType: TEXT
  75. Rect: 220,117,258,133
  76. Name: Height
  77. LockText: FALSE
  78. TextAlign: Center
  79. KeyFilter: OnlyDigits
  80. Script: if objValue is not empty then┬  put BtnList_SelectionText of window wdName into ol┬  repeat with x = 1 to number of lines in ol┬    put line x of ol into o┬    do "set HEIGHT of o to objValue"┬  end repeat┬end if
  81.  
  82. ItemType: TEXT
  83. Rect: 259,117,299,133
  84. Name: Width
  85. LockText: FALSE
  86. TextAlign: Center
  87. KeyFilter: OnlyDigits
  88. Script: if objValue is not empty then┬  put BtnList_SelectionText of window wdName into ol┬  repeat with x = 1 to number of lines in ol┬    put line x of ol into o┬    do "set WIDTH of o to objValue"┬  end repeat┬end if
  89.  
  90. ItemType: POP
  91. Rect: 176,24,195,37
  92. Name: Font List
  93. Script: if objValue is not empty then┬  put BtnList_SelectionText of window wdName into ol┬  repeat with x = 1 to number of lines in ol┬    put line x of ol into o┬    do "set the textFont of o to objValue"┬  end repeat┬end if
  94.  
  95. ItemType: POP
  96. Rect: 176,56,228,69
  97. Name: Size List
  98. Text: 9┬10┬12┬14┬16┬18
  99. Script: if objValue is not empty then┬  put BtnList_SelectionText of window wdName into ol┬  repeat with x = 1 to number of lines in ol┬    put line x of ol into o┬    do "set the textSize of o to objValue"┬  end repeat┬end if
  100.  
  101. ItemType: POP
  102. Rect: 176,88,258,101
  103. Name: Style List
  104. Text: Plain┬Bold┬Italic┬Underline┬Outline┬Shadow┬Condense┬Extend
  105. Script: if objValue is not empty then┬  put BtnList_SelectionText of window wdName into ol┬  repeat with x = 1 to number of lines in ol┬    put line x of ol into o┬    do "set textStyle of o to objValue"┬  end repeat┬end if
  106.  
  107. ItemType: LBL
  108. Rect: 143,24,170,36
  109. Text: Font:
  110.  
  111. ItemType: LBL
  112. Rect: 144,57,171,69
  113. Text: Size:
  114.  
  115. ItemType: LBL
  116. Rect: 144,88,176,100
  117. Text: Style: